year<-2010
library(dplyr)
library(redist)
library(sf)
library(tidyverse)
library(ggplot2)
library(dplyr)
library(forcats)
library(patchwork)

load('districtFTPVRA.RData')

# **** APPENDIX FIGURE A5*****
vra_hc<-vra_ftp(majority_hisp_c, actual_maj_hisp_c,stringr::str_to_title(cities), xl="Proportion Majority-Hispanic Districts") 

# vra_bp<-vra_ftp(majority_black, actual_maj_blk,stringr::str_to_title(cities), xl="Proportion Majority-Black Districts (Pop.)") 
# vra_bv<-vra_ftp(majority_black_v, actual_maj_blk_v,stringr::str_to_title(cities), xl="Proportion Majority-Black Districts (VAP)") 

# **** APPENDIX FIGURE A4 *****
vra_bc<-vra_ftp(majority_black_c, actual_maj_blk_c,stringr::str_to_title(cities), xl="Proportion Majority-Black Districts") 
